home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-desktop-9.10-i386-PL.iso / casper / filesystem.squashfs / usr / share / perl5 / Foomatic / UIElem.pm < prev   
Encoding:
Perl POD Document  |  2009-08-19  |  674 b   |  42 lines
  1.  
  2. # TODO:
  3. # sort by section and process that way
  4. # order dep specific to particular options
  5. # UI constraints
  6. # various common non-UI options
  7. # PJL options?
  8.  
  9. package Foomatic::UIElem;
  10.  
  11. # Call with name=>foo, label=>Foo, type=>Boolean or PickOne or PickMany
  12.  
  13. sub new {
  14.     my ($type, %vals) = @_;
  15.     return bless \%vals;
  16. }
  17.  
  18. # default=>value
  19. # order_real=>value
  20. # order_section=>value
  21. # order_keyword=>value
  22.  
  23. sub set {
  24.     my ($this, $var, $val) = @_;
  25.     $this->{$var} = $val;
  26. }
  27.  
  28.  
  29. sub add_option {
  30.     my ($this, $option, $label, $ps) = @_;
  31.  
  32.     $ps =~ s!\r!!g;
  33.  
  34.     push (@{$this->{'options'}}, 
  35.       {'option' => $option,
  36.        'label' => $label,
  37.        'snippet' => $ps});
  38. }
  39.  
  40.  
  41. 1;
  42.